home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / Borland Plateform / Turbo Prolog 2 / EXAMPL12.PRO < prev    next >
Encoding:
Prolog Source  |  1986-04-24  |  393 b   |  14 lines
  1.               /* Program 12 */
  2. domains
  3.        integerlist = integer*
  4. predicates
  5.        append(integerlist,integerlist,integerlist)
  6.        writelist(integerlist)
  7. clauses
  8.        append([],List,List).
  9.        append([X|L1], List2, [X|L3]) if
  10.                  append(L1,List2,L3).
  11.        writelist([]).
  12.        writelist([Head|Tail]) if
  13.                  write(Head),nl,writelist(Tail).
  14.